Option Explicit
Sub K_Sample005()
    Dim I      As Long
    Dim J      As Long
    Dim myAr() As Long
    Dim myStr  As String
    Dim myFunc As String
    'w}C
    ReDim myAr(1 To 10, 1 To 5)
    For I = 1 To 10
        For J = 1 To 5
            myAr(I, J) = I * J
        Next
    Next
    myStr = Application.InputBox( _
        "пJXpBB̤jB̤p䤤@")
    Select Case myStr
        'wrPu@
        Case "Xp": myFunc = "Sum"
        Case "": myFunc = "Average"
        Case "̤j": myFunc = "Max"
        Case "̤p": myFunc = "Min"
        Case Else: myFunc = ""
    End Select
    If myFunc = "" Then Exit Sub
    MsgBox "}C" & myStr & "" & _
CallByName(WorksheetFunction, myFunc, VbGet, myAr) & "C"
End Sub
